'#Language "WWB-COM"

Option Explicit

Sub Main
	With Resulttree
		Dim ffname As String, sExcit As String
		Dim sResultFile As String
		Dim s2 As String


		s2 = "C:\Reaserch\Code\CEM\AntennaGPT\data\Farfiled\"

		ffname = .GetFirstChildName("Farfields")
		If (ffname = "Farfields\Farfield Cuts") Then ffname = .GetNextItemName(ffname)
		While (ffname <> "")
				SelectTreeItem ffname

				sResultFile = s2+Mid(ffname,11) + ".txt"

			    With ASCIIExport
			        .Reset
			        .FileName sResultFile
			        .Mode ("FixedNumber")
			        .Execute
		        End With
		        ffname = .GetNextItemName(ffname)
        Wend
    End With
End Sub
